﻿
Imports std

Public Class sourceViewer
    Private _script As String = Nothing
    Private _start As Int64 = npos
    Private _end As Int64 = npos

    Public Sub [set](ByVal script As String, ByVal start As Int64, ByVal [end] As Int64)
        copy(_script, script)
        _start = start
        _end = [end]
    End Sub

    Public Function [get]() As String
        Return script() + " [" + Convert.ToString(start()) + ", " + Convert.ToString([end]()) + "]"
    End Function

    Public Function script() As String
        Return _script
    End Function

    Public Function start() As Int64
        Return _start
    End Function

    Public Function [end]() As Int64
        Return _end
    End Function
End Class
